<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.5 of April 16, 2007 on October 19, 2007 at 12:16:46 pm</time-stamp>


<class>
<name>Character</name>
<environment>SpaceTrader</environment>
<super>SpaceTrader.Person</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>ship </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category>SpaceTrader</category>
<attributes>
<package>SpaceTrader</package>
</attributes>
</class>

<comment>
<class-id>SpaceTrader.Character</class-id>
<body>Character is the second level actor in the game. It is a subclass of Person, and branches off into NPC and Player.

Instance Variables:
	ship	&lt;Object&gt;	All characters have ships. Currently, only Police and Players are ship holders, but future input will include pirates.

</body>
</comment>

<methods>
<class-id>SpaceTrader.Character</class-id> <category>accessing</category>

<body package="SpaceTrader" selector="ship">ship
	^ship</body>

<body package="SpaceTrader" selector="ship:">ship: anObject
	ship := anObject</body>
</methods>

<methods>
<class-id>SpaceTrader.Character</class-id> <category>initialize-release</category>

<body package="SpaceTrader" selector="initialize">initialize
	"Initialize a newly created instance. This method must answer the receiver."

	super initialize.
	" *** Edit the following to properly initialize instance variables ***"
	ship := nil.
	" *** And replace this comment with additional initialization code *** "
	^self</body>
</methods>

</st-source>
